Imports System.Data.SqlClient
Imports System.Drawing
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraEditors
Imports DevExpress.XtraScheduler
Imports DevExpress.XtraScheduler.UI
'--- Created Date On : 29-Sep-2010 (Gyana)

Public Class frmRegistrationWizard

    Private Sub btnClose_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Me.Close()
    End Sub

    Private Sub frmRegistrationWizard_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        rgRegistration.EditValue = 0
    End Sub

    Private Sub btnContinue_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnContinue.Click

        If rgRegistration.EditValue = 1 Then
            Dim PatientInfoForm As New frmPatientInfo(-1)
            PatientInfoForm.MdiParent = Me.ParentForm
            PatientInfoForm.btnAdd_Click(Me, e)
            PatientInfoForm.Show()
        End If

        If rgRegistration.EditValue = 0 OrElse rgRegistration.EditValue = 2 Then
            Dim PatientSearchForm As New frmPatientSearch
            PatientSearchForm.MdiParent = Me.ParentForm
            PatientSearchForm.Show()
        End If

        Me.Close()
    End Sub
End Class
